#!/usr/bin/env perl

use utf8;
use strict;

my $what = 'fred|barney';

while(<>){
	if(/($what){3}/){
		print "Matched $what inside $_\n";
	}
	else{
		print "Not Matched!\n";
	}
}
